home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64 / programm nr. 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  531b  |  27 lines
  1. 100 rem   ***   programm nr.3   ***
  2. 110 :
  3. 120 ifz=0thenz=1:load"grafik modul",8,1
  4. 130 cls=938:plot=820
  5. 140 :
  6. 150 x0=160:y0=100  :rem  mittelpunkt
  7. 160 xr=90 :yr=80   :rem  x & y-radius
  8. 170 w =.5          :rem  drehwinkel
  9. 180 :
  10. 190 poke53265,59:poke53272,24:print"[147]"
  11. 200 sys cls
  12. 210 :
  13. 220 t=sin(w*(NULL)/180):s=sqr(1-t*t):x=0:y=1
  14. 230 fora=0to90stepw
  15. 240 sys plot,x0+x*xr,y0+y*yr
  16. 250 sys plot,x0+x*xr,y0-y*yr
  17. 260 sys plot,x0-x*xr,y0+y*yr
  18. 270 sys plot,x0-x*xr,y0-y*yr
  19. 280 x1=s*x+t*y:y1=s*y-t*x:y=y1:x=x1
  20. 290 nexta
  21. 300 :
  22. 310 poke198,0:wait198,1:geta$
  23. 320 :
  24. 330 poke53265,27:poke53272,21
  25. 340 end
  26. 350 :
  27.